'From Squeak3.9 of 7 November 2006 [latest update: #7067] on 16 April 2007 at 5:26:31 pm'!HierarchyBrowser subclass: #PrologBrowser	instanceVariableNames: 'defaultTitle'	classVariableNames: ''	poolDictionaries: ''	category: 'Prolog'!!PrologBrowser methodsFor: 'initialize-release' stamp: 'rs 4/16/2007 17:25'!defaultBrowserTitle	^defaultTitle! !!PrologBrowser methodsFor: 'initialize-release' stamp: 'rs 4/16/2007 17:25'!initForPrologClassesNamed: anArray title: aString		"Initialize the receiver for the class-name-list and title provided"	self systemOrganizer: SystemOrganization.	metaClassIndicated := false.	defaultTitle := aString.	classList := anArray copy.	self class openBrowserView:  (self openSystemCatEditString: nil)		label: aString	" PrologBrowser new initForPrologClassesNamed: #(Family Dungeon) title: 'PrologDemo' "! !